Windows 3-Pak 2 - Disc 2/Infomagic - Windows 3-Pak Volume 2 (Disc 2 of 3).iso/Telnet-Clients/secmail.exe/_setup.1/SecureMail.exe/0/RCDATA/TAUDIOMSGFRM/TAUDIOMSGFRM.txt

Text File | 1998-11-20 | 25KB | 749 lines

object AudioMsgFrm: TAudioMsgFrm
  Left = 75
  Top = 148
  BorderStyle = bsSingle
  Caption = 'Record Voice Message'
  ClientHeight = 329
  ClientWidth = 680
  Color = clSilver
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 310
    Width = 680
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 50
      end>
    SimplePanel = False
    SizeGrip = False
  end
  object AudioBox: TGroupBox
    Left = 1
    Top = 184
    Width = 459
    Height = 123
    Caption = 'Voice Message'
    TabOrder = 1
    object Bevel1: TBevel
      Left = 5
      Top = 14
      Width = 448
      Height = 67
    end
    object wave: TPaintBox
      Left = 6
      Top = 15
      Width = 445
      Height = 65
      Color = clWhite
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      OnPaint = wavePaint
    end
    object PlayBut: TSpeedButton
      Left = 8
      Top = 88
      Width = 25
      Height = 25
      Hint = 'Play'
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
        70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
        70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
        70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
      OnClick = PlayButClick
    end
    object RecordBut: TSpeedButton
      Left = 32
      Top = 88
      Width = 25
      Height = 25
      Hint = 'Record'
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E338888888888888F3E0F88888888880E338F33333333338F3E0F333333333
        80E338F33333333338F3E0F33333333380E338F3333FFF3338F3E0F338999833
        80E338F333888FF338F3E0F33999993380E338F3388888F338F3E0F339999933
        80E338F3388888F338F3E0F33999993380E338F33888883338F3E0F338999833
        80E338F33388833338F3E0F33333333380E338F33333333338F3E0F333333333
        80E338F33333333338F3E0FFFFFFFFFFF0E338FFFFFFFFFFF8F3E00000000000
        00E33888888888888833EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
      OnClick = RecordButClick
    end
    object StopBut: TSpeedButton
      Left = 56
      Top = 88
      Width = 25
      Height = 25
      Hint = 'Stop'
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033
        70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
        70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
        70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
      OnClick = StopButClick
    end
    object NewBut: TSpeedButton
      Left = 425
      Top = 88
      Width = 25
      Height = 25
      Hint = 'Discard Current Voice Message'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
        3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
        33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
        33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
        333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
        03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
        33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
        0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
        3333333337FFF7F33333333330000033333333333777773333330000}
      NumGlyphs = 2
      OnClick = New1Click
    end
  end
  object PhotoBox: TGroupBox
    Left = 466
    Top = 37
    Width = 209
    Height = 270
    Caption = 'Photo Viewer'
    TabOrder = 2
    object TrashImageBut: TSpeedButton
      Left = 94
      Top = 240
      Width = 25
      Height = 25
      Hint = 'Discard Current Image'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
        3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
        33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
        33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
        333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
        03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
        33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
        0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
        3333333337FFF7F33333333330000033333333333777773333330000}
      NumGlyphs = 2
      OnClick = TrashImageButClick
    end
    object LoadImageBut: TBitBtn
      Left = 8
      Top = 240
      Width = 75
      Height = 25
      Hint = 'Load Image From File'
      Caption = '&Load'
      TabOrder = 0
      OnClick = LoadImageButClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
        00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
        00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
        00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
        0003737FFFFFFFFF7F73300999999999003337777777777777330000}
      NumGlyphs = 2
    end
    object AcquireImageBut: TBitBtn
      Left = 128
      Top = 239
      Width = 75
      Height = 25
      Hint = 'Acquire Image From Scanner'
      Caption = '&Acquire'
      Enabled = False
      TabOrder = 1
      OnClick = AcquireImageButClick
      Glyph.Data = {
        72010000424D7201000000000000760000002800000016000000150000000100
        040000000000FC00000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
        EEEEEEEEEE00EEEEEEEEEEEE0EEEEEEEEE00EEEEEEEEEE00000EEEEEEE00EEEE
        EEEEE02202200EEEEE00EEEEEEE002220222200EEE00EEEEEE02222202222220
        0E00EEEE00222200000222222000EEE022222000F00002222000E002222000FF
        FFF000022000022222000FFFFFFFF00000000222000FFFFFFFFFFFF000000220
        000FFFFFFFFFFF000E00000A00A00000FFFF000EEE000AAAAA00AAAA000000EE
        EE00E00AAAAA00AAAA00EEEEEE00EEE00AAAAA00AAAA00EEEE00EEEEE00AAAAA
        0000AA00EE00EEEEEEE00A00EEEE00000E00EEEEEEEEE0EEEEEEEEEEEE00EEEE
        EEEEEEEEEEEEEEEEEE00EEEEEEEEEEEEEEEEEEEEEE00}
    end
    object Panel1: TPanel
      Left = 8
      Top = 16
      Width = 193
      Height = 217
      BevelWidth = 2
      TabOrder = 2
      object Image1: TJPEGImage
        Left = 2
        Top = 2
        Width = 189
        Height = 213
        Align = alClient
        Stretch = True
        NumOfColors = _256
        DCTMethod = Integ
        Dither = FS
        FastProcessing = False
        GrayScale = False
        NoSmooth = False
        OnePass = False
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 680
    Height = 34
    Align = alTop
    TabOrder = 3
    object SendMessageBut: TSpeedButton
      Left = 8
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Send Voice Message'
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000
        000088888888888888880FFFF8F888FFFF708FFFF7F777FFFF780FFFFFFFFFFF
        FF708FFFFFFFFFFFFF780FFFF88FF88FFF708FFFF77FF77FFF780FFFFFFFFFFF
        FF708FFFFFFFFFFFFF780FFFFFFFFFFF11708FFFFFFFFFFF77780FFFFFFFF88F
        117088FFFFFFF88F77780FFFFFF7F07FFF708FFFFFF7F0FFFF780000008FFF00
        00008888888FFF888888777770087F808807777778887F8F88877770088F7FF7
        07F87778888F7FF787F8770088777FF707FF778888777FF787F780008777FFFF
        07F08888F777FFF887F707F77F7FFF0087F087F77F7FF888F7F7077777780087
        7F088777777888F77F78000000008888808788888888F7777777}
      NumGlyphs = 2
      OnClick = SendMessageButClick
    end
    object SpeedButton2: TSpeedButton
      Left = 647
      Top = 4
      Width = 25
      Height = 25
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F33330000000000033333777777777773330000}
      NumGlyphs = 2
      OnClick = SpeedButton2Click
    end
    object HelpBut: TSpeedButton
      Left = 615
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Show Voice Message Help'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
        33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
        FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
        FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
        FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
        FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
        FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
        3333333773FFFF77333333333FBFBF33333333333777773333330000}
      NumGlyphs = 2
    end
    object ReplyBut: TSpeedButton
      Left = 32
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Reply To Voice Message'
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003FFFFFFF7033
        33333FFFFFFF873333334F4444FF704444337F7777FF87444433FFFFFFFF7066
        6643FFFFFFFF87333343FFFFFF1170666663FFFFFF7787333333FFFFFF117066
        6663FFFFFF7787333333FFFFFFFF70FF4663FFFFFFFF87777333000000000033
        4663777777777733733333333343333346633333337333337333333334633333
        4663333337333333733333334664444466633333733777773333333466666666
        6663333733333333333333F66666666666F33383333333333383333F66666666
        6F3333383333333338333333F66FFFFFF333333383388888833333333F6F3333
        33333333383833333333333333FF333333333333338833333333}
      NumGlyphs = 2
      OnClick = ReplyButClick
    end
    object ForwardBut: TSpeedButton
      Left = 56
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Forward Voice Message'
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        0FFFF033333333330FFF3333333333330FF8F033333333330FF8334444444444
        4F70F077777777777F70334FFFFFFFFF0F0FF07FFFFFFFFF0F0F334FFF888F8F
        0F0FF07FFF777F7F0F0F334FFFFFFFFF0F0FF07FFFFFFFFF0F0F804FFF88F88F
        F0FF807FFF77F77FF0FF074FFFFFFFFFFFFF070FFFFFFFFFFFFF074FF0FFFFFF
        FFC1070FF0FFFFFFFF77074F070FFFFFFF4C070F070FFFFFFF77074F070FFFFF
        FF44070F070FFFFFFF77074F070FFFFFFFFF070F070FFFFFFFFF074487044444
        4444070087077777777707787703333333330778770333333333077777033333
        3333077777033333333330777703333333333077770333333333}
      NumGlyphs = 2
      OnClick = ForwardButClick
    end
    object DiscardBut: TSpeedButton
      Left = 80
      Top = 4
      Width = 25
      Height = 25
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF000000000
        FFFFFFF8888888887FFFFFF0F8888880FFFFFFF8F7F7F7F87FFFFFF0F0707080
        FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
        FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
        FFFFFF78F8F8F8F87F7FF0F0F0708080F0FFF878F8F8F8F878FFFF00F0707080
        0FFFFF88F8F8F8F88FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF080808080
        FFFFFFF8F8F8F8F877FFFF00000000000FFFFF888888888887FFFF0F77788888
        0FFFFF8FFFFFFFFF87FFFF00000000000FFFFF88888888888FFFFFFFF08880FF
        FFFFFFFFF8FFF87FFFFFFFFFF00000FFFFFFFFFFF88888FFFFFF}
      NumGlyphs = 2
      OnClick = DiscardButClick
    end
  end
  object GroupBox1: TGroupBox
    Left = 3
    Top = 37
    Width = 457
    Height = 144
    Caption = 'Addressing Information'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    object Label2: TLabel
      Left = 6
      Top = 118
      Width = 48
      Height = 13
      Caption = 'Sub&ject:'
      FocusControl = Subject
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 248
      Top = 43
      Width = 52
      Height = 13
      Caption = 'Account:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object MTo: TComboBox
      Left = 85
      Top = 18
      Width = 65
      Height = 21
      HelpContext = 62
      Style = csDropDownList
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 13
      Items.Strings = (
        'TO'
        'CC'
        'BCC')
      ParentFont = False
      TabOrder = 1
    end
    object Priority: TComboBox
      Left = 368
      Top = 114
      Width = 81
      Height = 21
      HelpContext = 65
      Style = csDropDownList
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 13
      Items.Strings = (
        'Low'
        'Normal'
        'Urgent')
      ParentFont = False
      TabOrder = 7
      OnChange = PriorityChange
    end
    object AddName: TEdit
      Left = 154
      Top = 18
      Width = 295
      Height = 21
      HelpContext = 63
      AutoSize = False
      TabOrder = 2
      OnKeyPress = AddNameKeyPress
    end
    object EncodeBox: TComboBox
      Left = 284
      Top = 114
      Width = 81
      Height = 21
      HelpContext = 66
      Style = csDropDownList
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 13
      Items.Strings = (
        'Mime'
        'UU')
      ParentFont = False
      TabOrder = 6
    end
    object AddressBut: TBitBtn
      Left = 8
      Top = 18
      Width = 75
      Height = 22
      Hint = 'Pick From Address List'
      Caption = '&Address'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = AddressButClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        33333333333333333333333333333333333333333333333333330000}
      NumGlyphs = 2
    end
    object Accounts: TComboBox
      Left = 247
      Top = 58
      Width = 200
      Height = 21
      HelpContext = 1061
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 4
      OnChange = AccountsChange
    end
    object Subject: TEdit
      Left = 58
      Top = 114
      Width = 221
      Height = 21
      Hint = 'Enter Subject of Message'
      HelpContext = 68
      Color = clWhite
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
    end
    object AddressList: TListBox
      Left = 6
      Top = 42
      Width = 230
      Height = 67
      Hint = 'Click Right Mouse Button To Delete'
      HelpContext = 64
      Color = clWhite
      ItemHeight = 13
      Sorted = True
      TabOrder = 3
    end
    object Receipt: TCheckBox
      Left = 248
      Top = 85
      Width = 126
      Height = 17
      HelpContext = 67
      Caption = '&Return Receipt'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
    end
  end
  object WaveIn: TEnhWaveIn
    samples = 11025
    MaxBuffers = 3
    OnData = WaveInData
    Left = 275
    Top = 235
  end
  object WaveOut: TEnhWaveOut
    samples = 11025
    OnDone = WaveOutDone
    Left = 243
    Top = 235
  end
  object MainMenu1: TMainMenu
    Left = 179
    Top = 236
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object Send1: TMenuItem
        Caption = '&Send'
        Enabled = False
        ShortCut = 0
      end
      object Reply1: TMenuItem
        Caption = '&Reply'
        Enabled = False
        ShortCut = 0
        OnClick = ReplyButClick
      end
      object Forward1: TMenuItem
        Caption = '&Forward'
        Enabled = False
        ShortCut = 0
        OnClick = ForwardButClick
      end
      object Discard1: TMenuItem
        Caption = '&Discard'
        Enabled = False
        ShortCut = 0
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
      end
    end
    object Audio1: TMenuItem
      Caption = '&Audio'
      ShortCut = 0
      object New2: TMenuItem
        Caption = '&Discard'
        ShortCut = 0
        OnClick = New1Click
      end
      object Load2: TMenuItem
        Caption = '&Load'
        ShortCut = 0
        OnClick = Load1Click
      end
      object Save1: TMenuItem
        Caption = '&Save'
        ShortCut = 0
        OnClick = SaveAs1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Play1: TMenuItem
        Caption = '&Play'
        ShortCut = 0
        OnClick = PlayButClick
      end
      object Stop1: TMenuItem
        Caption = 'S&top'
        ShortCut = 0
        OnClick = StopButClick
      end
      object Record1: TMenuItem
        Caption = '&Record'
        ShortCut = 0
        OnClick = RecordButClick
      end
    end
    object Picture1: TMenuItem
      Caption = '&Photo'
      ShortCut = 0
      object Clear1: TMenuItem
        Caption = '&Discard Image'
        ShortCut = 0
        OnClick = TrashImageButClick
      end
      object Load1: TMenuItem
        Caption = '&Load Image'
        ShortCut = 0
      end
      object Acquire1: TMenuItem
        Caption = '&Acquire Image'
        Enabled = False
        ShortCut = 0
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object Contents1: TMenuItem
        Caption = '&Help Topics'
        ShortCut = 0
        OnClick = Contents1Click
      end
      object SoundRecorder1: TMenuItem
        Caption = '&Voice Message'
        ShortCut = 0
        OnClick = SoundRecorder1Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'All CSF Files|*.csf|All Files|*.*'
    Options = [ofHideReadOnly]
    Title = 'Open MSF File'
    Left = 147
    Top = 236
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'csf'
    FileEditStyle = fsEdit
    Filter = 'CSF File|*.csf|All Files|*.*'
    Options = [ofOverwritePrompt, ofPathMustExist, ofNoLongNames]
    Title = 'Save Sound File'
    Left = 211
    Top = 236
  end
  object ZipMaster1: TZipMaster
    Verbose = False
    Trace = False
    AddCompLevel = 9
    AddOptions = []
    ExtrOptions = []
    Left = 307
    Top = 236
  end
  object AudioMessage: TmsMessage
    ContentType = 'text/plain'
    ReturnReceipt = False
    Left = 115
    Top = 232
  end
  object OpenDialog2: TOpenDialog
    FileEditStyle = fsEdit
    Filter =
      'All SIF Files|*.sif|All JPG Files|*.jpg|ALL GIF Files|*.gif|All ' +
      'BMP Files|*.bmp|All Files|*.*'
    Options = [ofHideReadOnly, ofFileMustExist]
    Title = 'Load Image File'
    Left = 83
    Top = 232
  end
end